home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGASIC
/
BASFILES.LZH
/
INSCOL.BAS
< prev
next >
Wrap
BASIC Source File
|
1988-09-10
|
413b
|
25 lines
'$INCLUDE:'QBTOOLS.INC'
'' '$INCLUDE: 'qbtools2.inc'
SUB InsertColumn (ColNum%, Attr%)
REDIM Storage%(2000)
IF ColNum% > 80 OR ColNum% < 1 THEN
EXIT SUB
END IF
IF ColNum% <> 80 THEN
GetCol% = ColNum% + 1
GetScreen Storage%(1), 1, ColNum%, 25, 79
PutScreen Storage%(1), 1, GetCol%, 25, 80
END IF
FOR j% = 1 TO 25
ColorPrint " ", j%, ColNum%, Attr%
NEXT j%
END SUB